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MODULE ENTER ( Lane UAGE (BL1$$32). 
IDENT = *VOG-001* 

) =z 

BEGIN 
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; FACILITY: FIIACP Structure Level 2 
i ABSTRACT: 

This routine creates a new directory entry for the given file. 
i ENVIRONMENT : 


STARLET operating system, including privileged system services 
énd internal exec routines. 


SO bebo 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Jan-1978 16:50 


i MODIFIED BY: 
v04-001 CWH4001 CW Hobbs 9-Aug-1984 
Fix truncation error. 
v03-006 CDS0003 Christian D. Saether 3-Aug-1984 


Modify handling of directory index updating. 
vO3-005 LMPO252 L. Mark Pilant, 25-Jun-1984 10:03 
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Make sure that the test for ronoy ing ’ directory entry on an 
an eutenpuree uses the relative position of the entry, no the 
s 


address. T corrects a problem with corrupted directories 
for large directories with a version Limit of 1. 
V03-004 ACG0419 Andrew C. Goldstein, 19-Apr-1984 15:27 


Add NOSAFE switch to MAKE_ENTRY to circumvent CSE bug 


V03-003 ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:39 
Make APPLY_RVN and DEFAULT_RVN macros 

v03-002 CdS0002 Christian D. Saether 18-Jan-1984 
Modify interface to DEFAULT_RVN and APPLY_RVN. 

v03-001 CDS0001 Christian D. Saether 


19-Dec-1983 
Use BIND_COMMON macro to reduce number of 
external COMMON declarations. 


v02-012 ACG0264 Andrew C. Goldstein, 12-Feb-1982 15:21 
Allow negative version numbers (and treat Like zero) 

v02-011 ACG0259 Andrew C. Goldstein, 26-Jan-1982 19:17 
Fix autopurge when version Limit is 1 

v02-010 ACG023 Andrew C. Goldstein, 10-Dec-1981 14:22 


8 
Invalidate RMS directory cache when dir is superseded 


ACG0208 Andrew C. Goldstein, 28-0ct-1981 
Add segmented directory record support 


ACG34341 Andrew C. Goldstein, 3-Mar-1981 17:06 
Fix remove cleanup when first block has been squished 


ACG0167 Andrew C. Goldstein 16-Apr-1980 
Previous revision history moved to F11B.REV 


v02-009 20:44 
v02-008 


v02-007 19:26 


*SYS$SLIBRARY:LIB.L32'; 

"SRC$:FCPDEF .B32'; 

ROUTINE 

ENTER : L_NORM NOVALUE, ! main ENTER routine 
MAKE_ENTRY L_NORM NOVALUE, ! build new directory entry 


RESTORE_DIR : LTNORM NOVALUE; | restore directory context 
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GLOBAL ROUTINE ENTER (ABD, FIB, RESULT_LENGTH, RESULT) : L_NORM NOVALUE = 
lee 
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FUNCTIONAL DESCRIPTION: 
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This routine enters the given file name in the specified directory. 


i CALLING SEQUENCE: 
ENTER (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
ARG1: address of buffer descriptor packet 
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ARG2: address of FIB of operation 
IMPLICIT INPUTS: 
NONE 


i 
i 
i 
i 
! 
i 
' 
i 
i 
i 
' 
i 
i 
i 
! OUTPUT PARAMETERS: 

: ARG3: address of longword to receive length of result string 
ARG4: address of result string buffer 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


IMPLICIT OUTPUTS: 
DIR_BUFFER: buffer address of current directory block 
DIR_ENTRY: address of directory record 
DIR_VERSION: address of directory version entry 
DIR_END: end of directory data 
PREV_VERSION: version number of superseded entry 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
directory altered, result string and length written into buffer packet 


MAP 
ABD : REF BBLOCKVECTOR C,ABDS$C_LENGTH), | 
! descriptor list arg 
FIB : REF BBLOCK, : 548 argument 5 
RESULT : REF VECTOR C,BYTEJ; ! result string arg 
LOCAL 
NAME _DESC : BBLOCK tyne LENGTH], ! file agro descriptor block 
NAME BUFFER : VECTOR CFILENAME_LENGTH, BYTE], ! buffer for file name 
STATOS, ! Fesult of directory search 
' string pointer : 
VBN ' current VBN of directory file 
NAME _LENGTH; ! Length of file name, rounded even 
BIND_COMMON; 
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EXTERNAL ROUTINE 


START SUB =: L_NORM, ! start subfunction metering 
PMS_END_ SOB : LINORM, ! end subfunction metering 
DIR-ACCESS : LINORM, ' access the directory 
PARSE _NAME L-NORM, ' parse file airing 
DIR_ STAN : LINORM, ! search the directory 
UPDATE _DIRSEQ L-NORM ! update directory sequence count in UCB 
ABDRESSING_MODE (LONG_RELATIVE), 
NEXT _DIR_REC : LLNORM, ' advance to next matching record 
RETURN_DIR : LINORM, ! return data to buffer packet 
MARK_DIRTY : LINORM; ! mark buffer for rewrite 


Start metering for this subfunction. 


| 
PMS_START_SUB (PMS_ENTER); 
The file ID to be entered must be non-zero. 
. 
IF .FIBCFIBSW_FID NUM) EQL 0 
THEN ERR_EXIT™ (SS$_BADPARAM) ; 
' Find the name string in the buffer packet. Parse the string into the | 
| 
! 
| 
| 
| 


' mame descriptor block. Mask out the wild card bits, since they are 
not permitted. Check the version number; it must be positive. 


PARSE_NAME (NAME DESC, NAME_BUFFER, .ABDCABDSC_NAME, ABD$W_COUNT) 
DEABD$C_NAME. ABD$W.TEXT] + ABDCABDSC_NAME, ABD$W_TEXT] + 1, 


-FIBCFIBSW-NMCTL] AND FIBSM_NEWVER); 
IF_.NAME_DESCCFND_WILDJ 
THEN ERR_EXIT (SSS _BADFILENAME) ; 
F .NAME-DESCCFND VERSION) LSS 0 
THEN NAME_DESCCFNB_ VERSION) = 0; 
NAME_LENGTH = .NAME_DESCCFND_COUNT] + 1 AND NOT 1; 


Access the directory. 


DIR_ACCESS (.FIB, 1); 


! Search the directory for the indicated name. If the search succeeds, 
' we have a duplicate gatry. If supersede is enabled, do it; otherwise, 
take an error exit. If the search failed, make a new entry. 


DIR_RECORD = 0; 

LAST _ENTRYCO) = 0; 

STATOS = DIR_SCAN (NAME_DESC, 0, 0, 0, 0, 0, -1); 
IF .DIR VERSION NEQ 0 

THEN FIBCFIBSW_VERLIMIT] = .VERSION_LIMIT; 


IF STATUS | 
AND NOT .NAME PESCCEND MAX_VER] 
AND .NAME_DESTCFND_VERSION] NEQ 0 
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| 
THEN } 
BEGIN 
IF NOT .FIBCFIBSV_SUPERSEDE) 
THEN ERR_EXIT (SSS_DUPFILENAME) ; | 
DIR_END = .DIR_VERSION; 
PREV VERSION = .DIR_V VER stonco ieee noe SION 
CHSMOVE (FIBSS_FID par VERSION Orn . aE 1D), yeyeen. FID); 
APPLY_RVN (SUPER FID F 10S RVN) 
HSMOVE (FIBSS_FID, FIBCFIB$W FID} cure NVERS 1 ONCDIRSW FIDJ); 
DEFAULT RVN_ (DIR “VERSIONEDIRS@. F1D/R RVNJ> .CURRENT_RVNJ; 
USER_S Mahe tie ="Ss$ sUCERagOE: 
CLEANUP_FLAGSCCLF_SUPERSEDE) = 1; 
! Determine if the entry being superseded is of the form xxx.DIR;1. If 
he directory sequence count in the UCB to invalidate RMS caches. 


so, bump t 


Hla VERSIONCDIR$W_VERSION] EQL 1 ! simple tests first 


BEGIN 
CHSFIND_SUB (.DIR ENTRYCDIRSB_NAMECOUNT], DIR_ENTRYCDIRST_NAMEJ, 
PLIT BYTE ('7DIR')); 
IF NOT CHSFAIL PS 
AND .P + 4 EQL DIR_ENTRYCDIRST_NAME] + .DIR_ENTRYCDIRS$B_NAMECOUNT) 
wen KERNEL_CALL (OPDATE_DIRSEQ); 


END 
The operation is not a supersede. Create the new directory entry. 


ELSE 
MAKE_ENTRY (NAME_DESC, .FIB); 
! Determine whether higher or lower versions exist of the new entry. 
This is deduced from the relative position of the new version in the record. 
version COUNT GTRU 0 
N FIBCFIBSV_HIGHVER) = 


Ir 
THE 
a -DIR_VERSION LSSA oun eurny + .DIR_ENTRYCDIRSW_SIZE] + 2 - DIRSC_VERSION 
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VBN = 


» 
MEW 0 OBNO NEWN (OO OONOA UEFA $ O DOONAN EWAN —OOONOUIS WN O” Ss 


oS SSS TSSSS DAMA ES BBE BEE EE PAW Ww MoPoPororonofne 


OOo 
owe 


Oe Oe Oe Os Oe Os Be Oe Oe Oe Oe Oe Oo Os Oe Oe Oe OF Os Oe Oe OF OH OF Oe Oe Oe Oe Os Os Oe Oe Oe Oe BESS Oe OE O5 Os Oe OE OE OE Oe Oe Oe Oe Oe Oe eS Ss Sstes 
PIP IPMOPIPIPYAININDNYINININNIPINIPYPININPYPSNINYNIPINININININIPINYNINI NPN NoNoPononononononoponoforefpofpenony 


Se a 


a ed ed ee ed ee ed ee el ee ed ee ce ee a ee a a ee a ee ec et ee a ca cl ce ee ce ce ee ee a el ee el 
WR 0 ODN VE WN O OONOA UIE WIN 8 OONO UE WIN 0 OOS PUSAN SH OC OONOU SWI —O 0M 


PIPDPIPIPIPIPIPIPPNDNPNTUNINYININYNINININIPINIPIDIPINPINYPINIPYINIPOPYINYIPIPUPIPIPINPIPUPIPIPOPIPUNPIPIPYUNIPPNPD 


ye A et tet eM 


wEXT vir Ree? ui DIR ENTRY, VBN) NEQ 0 


THEN FIBCFIBSV_LOWVER] = 

FIBCFIBSW_VERLIMIT] = .VERSION_LIMIT; 

! Write out the modified directory block and 

return the resultant directory string to the caller. 


KERNEL_CALL (RETURN_DIR, .RESULT_LENGTH, .RESULT, .ABD); 


. 
e 
. 
e 
. 
oe 
. 
. 
. 
a 
. 
o 
. 
. 
. 
. 
. 
. 
. 
@ 
. 
e 
. 
e 
. 
Ld 
. 
° 
. 
e 
. 
. 
. 
° 
. 
° 
. 
° 
. 
Ld 
7 
e 
. 
. 
. 
. 
. 
> 
e 
. 
. 
. 
. 
. 
oe 
. 
2 
. 
. 
. 
e 
. 
eo 
. 
o 
. 
2 
. 
* 
. 
o 
” 
. 
eo 
. 
o 
. 
. 
. 
e 
* 
o 
. 
. 
. 
o 
- 
a 
~ 
e 
7 
2 
. 
o 
. 
a 
. 
a 
7 
. 
6 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 


Page 


0-742 
STER:CF11X.SRCJENTER.B32;2 


ss-32 V4 
PMS_END_SUB 
TURN_DIR 
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! end of routine ENTER 
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MARK_DIRTY (.DIR_BUFFER); 


PMS_END_SUB (); 
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AO 
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08 AC po 148 12$ PUSHL FIB : 1261 

AE F 00148 PUSHAB NAME_DESC : 

0000v CF 02 F 146 CALLS a2 MAKE _ENTRY : 
1A Ag 8 13$: sti #6 (R6) + 1247 
50 0 AC 1 § MOVL Fig RQ + 1248 

15 A0 BF 1 ; BISB2 #128, 21(RO) : 
; 0 Bb 161 14$:  MOVZWL @8(R4), RO + 1250 

; 08 £> 00188 nee et 

6 43 D1 0016C CMPL (RB), RO : 

11 «IF 16F BLSSU 15 : 
6E $6 dO 00171 MOVL  (R6), VBN ; 1253 
E DD 00174 PUSHL sP + 1254 

08 A6 DD 126 PUSHL  B(R6) : 

00006 CF 0 F Vv CALLS "2, NEXT_DIR_REC ; 

09 1 185 BEQL  16$ : 
50 08 AC p 182 15$:  MOVL  FIB, RO : 1256 

15 AO 40 8F 186 BISB2 #64. 21(RO) : 
50 08 AC DO 188 16$: MOVL  FIB, RO : 1258 

2c. = AO 1 A6 BO 0018F OVW  24(R6), 44(RO) ; 
04 AC pp 194 PUSHL ABD + 1264 

7E 0c aC D 00197 MOVa RESULT LENGTH, =(SP) : 
noone Fm RRB | RAR geen | tase 

00006 CF 1 FB tN CALLS #1, MARK_DIRTY : 
00006 CF 0 FB 0018 CALLS #0, PMS_END_SUB + 1268 
04 001AD RET : 1270 


H 1 
ENTER 16-Sep-1984 00:21: VAX-11 Bliss-32_ V4.0-742 Page 8 
v04-001 1o=S00 1 382 99°90; DISKSVMSMASTER:CF11X.SRCJENTER.B32;2 ° (2) 
2 . 
; Routine Size: 430 bytes, Routine Base: S$CODE$ + 0004 


: 
ENTER ibese =1984 00:21:45 VA V4.0-742 P 9 ony | 
v04=001 yergee- 198s 98:ghi33 Ht FIIX-SRCJENTER.B32:2 (3) 


: 3 ! 4 ! GLOBAL ROUTINE MAKE_ENTRY (NAME_DESC, FIB) : L_NORM NOVALUE = 

ie aie 

; i t3 ; FUNCTIONAL DESCRIPTION: 

: 289 1 i] 1 i This routine makes a new directory entry, either for a new file 

; 290 1 4 1! name or for a new version of an existing file. 

Be BBL 

: 29 1281 1 | CALLING SEQUENCE: 

: 32 : Ht ! MAKE_ENTRY (ARG1, ARG2) 

: 296 1284 1 | INPUT PARAMETERS: 

; 97 1285 1! ARG1: address of file name descriptor block 

3 38 | 36 ! ARG2: address of user FIB | 
: 300 1288 1°! IMPLICIT INPUTS: 

s S01 1289 1! DIR_VBN: VBN of current directory block 

; 30 1290 1! DIR_BUFFER: buffer address of current directory block 

- 1291 1! DIR_ENTRY: address of directory record 

: toe ; 96 : } DIR_VERSION: address of directory version entry 

: 306 1294 1 | OUTPUT PARAMETERS: 

3 $05 1692 : NONE 

: 309 1 39 1 | IMPLICIT OUTPUTS: 

s 310 1298 1! R_END: end of directory data 

3 al) : +4 : PREV_VERSION: version number of superseded entry 

: ig 1301 1 | ROUTINE VALUE: 

: 8 1308 1 i oe 

: 316 1304 1 ' SIDE EFFECTS: 

, 6ST 1305 1! directory buffer altered, directory may be extended 

; 318 1306 1! 

Big i= 

; 21 1308 BEGIN 

: § 1311 'enene 

3 4 1 \ SWITCHES NOSAFE; 

5 5 131 ! To present incorrect formation of a value CSE on DIR_VERSION across the 
: 3 1314 ' call to DIR_SCAN in the auto-purge logic. Compiler: T4.0-741. 

: 1315 leeene 

i 355 1319 5 map 

: % 1 8 NAME _DESC : REF BBLOCK, ' file name descriptor block 

: 1 ' i? FIB : REF BBLOCK; ' user FIB 

: 38 1321 2 LOCAL 

; 1 § STATUS, ' misc status value 

: 5 1 EOF, ! entering at end of file tag 

; 1324 ON : REF BBLOCK, ' Local pointer to name descriptor 
; 1325 NAME_LENGTH, ' Length of file name, rounded even 
; 338 1 § NEW SIZE, ' size in bytes of new recor 

: 39 1 VERSIONS, ! version Limit for new directory record 


b-s 9° 138% 909i 343 VAX-11 Bliss-32 YS, 0-788 Page 


1 
@ 10 
ep-1 0:19 DISKSVMSMASTER:CF11X.SRCIJENTER.B32;2 (3) 
v 
H 


ENTRY = .DIR_END; 
= .DIR_END + 2; 


! 
{ 
2 
0 
D 
N | 
there was not a name match, we are constructing a whole new record. | 


— w@wmn 


Compute the record size and see if there is enough space. If not, extend 
the directery. Then shuffle down the rest of the records and build the 
gow erty . ve update the directory index if this is a new last record 

n the block. 


trees OS OC 


If .DIR_VERSION EQL 0 
BEGIN 


1 
1 
; 0 1 8 SAVE _VERSION ! sa §¢ version number of new entry 
: 4] ; SAVE-DIR_CONTEXT : BBLOCK COCX_LENGTHJ; ! saved context of enter 
; 1331 BIND_COMMON; 
: 44 1 § 
; re : Z DIR_CONTEXT_DEF; 
; 34 1335 EXTERNAL ROUTINE 
: 348 1 $ : LLNORM, ! scan directory file 
> 349 1 READ BLOCK L-NORM, ! read a disk block 
: 350 1 3 : LUNORM, ! remove a directory entry 
3 2] 1 SHUFFLE_DIR : L_NORM, ! extend the directory 
; § 1340 NEXT_R : L_NORM ' get next erres tery record 
: 33 ‘e UPDATE _INDX NOVALUE ; i Update directory FCB index 
: 355 134 
; 356 1344 ! Set up the position for the insert. If DIR_ENTRY came back zero, either 
; 57 1345 ! we scanned off the end of the directory, or this is a cleanup from a REMOVE 
; 358 1346 ! in which the block DIR_VBN got squished out. We read back the previous 
s 339 1347 ' block, and set up to append the ares unless it was the first, in which 
:; 360 1348 ' case we read the first and enter at its beginning. Scan to the end of the 
: $e 1349 ' records in the block. 
3 ¢ 1350 ! 
; 36 1351 
: 364 1 26 EOF = 0; 
: 135 DN = .NAME_DESC; 
: 1354 2 NAME_LENGTA = .DNCFND_COUNT? + 1 AND NOT 1; 
5 1355 DIR_END = .DIR_ENTRY; 
; 1356 IF [DIR_ENTRY EQ. 0 
: 1357 THEN 
3 1358 BEGIN 
: 1359 IF .DIR_VBN GTRU 1 
3 1360 THEN 
: 1361 4 BEGIN 
: 1306 4 EOF = .EOF + 1; 
; 1367 4 DIR_VBN = .DIR_VBN = 1; 
3 1365 DIR_ENTRY = DIR_END = DIR_BUFFER = READ_BLOCK (.DIR_VBN+.DIR_FCBCFCBSL_STLBNIJ-1, 
: 1366 1, DIRECTORY_TYPE); 
3 : 44 END; 
3 1369 TIL .DIR_ENDCDIRS$W_SIZE] EQL 65535 
3 : 70 D = NEXT_REC (.DIR_END); 
: 1 
s 1 
3 1 
3 1 
s 1 
: 1 
3 1 
: 1 
3 1 
: 1 
: 1 
: 1 
3 1 
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16-Sep-1984 00:21:45 VAX-11 Bliss-32_V4.0-742 Pa 1 
12286871 382 99°90:18 DISKSVMSMASTER:CF11X.SRCIENTER.B32;2 = (3) 
DNCFND_VE N 0 

DNCFNB_V ON] = .DNCFND_VERSION] + 1; 

E LENGTH + DIRSC_VERSION + .NAME_LENGTH; 
;DIR_BUFFER +7512 = .DIR_END 


«DN 
N 

5! 
»NE 
NS 


anm ma» 


Vv 
NUFND_ 
ZE = Dl 
W SIZE 0 
HOFFLE_DIR ( 
DIR_ENTRYCDIRSW_SIZE] EQL 65535 


UPDATE_INDX (DIR VBN=1,. .DN CFND_COUNT], .DN CFND_STRING), 


CHSMOVE (.DIR_END-.DIR_ENTRY, .DIR_ENTRY, .DIR_ENTRY+.NEW_SIZE); 


DIR_ENTRYCDIRS$W SIZE] = .NEW size = 23 

VERSIONS = .FIBCFIBSW_VERLIMITI; 

IF_.VERSIONS EQL 

THEN VERSIONS = .DIR_FCBCFCBSW_VERSIONS]; 
SIONS EQ 


THEN venetone = 32767; 
DIR_ENTRYCDIRSW_VERLIMIT] = . VERSIONS; 
VERSION_LIMIT =". VERSIONS; 
DIR_ENTRYCDIRSB_FLAGS] = DIRSC_FID; 
DIR-ENTRYCDIR$B_NAMECOUNT] = .BNCFND_COUNT); 
CHSTOPY (ONT FND COUNT), .ONCFND_STRT 


RING 
.RAME_LENGTH, DIRTENTRYCOIRST_NAME]); 
DIR_VERSION = .DIR_ENTRY + .NEW_SIZE - DIRSC_VERSION; 


Otherwise we are peeing a new version to an existing entry. If the 

version Limit is less than maximal, check for version overflow. If 

so, move out the oldest version to be superseded. We do this by 

saving the current directory position and scanning to the lowest 

version of the file. If the scan for lowest version comes back with 

an error, this indicates that we were already at the lowest version; 
f so, give an error. 


BEGIN 

IF .DNCFND_VERSION) EQL 0 

OR (.DNCFND“MAX VER] AND .DNCFND_VERSION) LEQU sDIR VERSIONCDIR$W_VERSION)) 
RSW_VERSION) 1; 


D-VERS 
IF .DNCFND JERSION) LSS 
THEN ERR_ERIT (SS$_BADFILEVER); 


IF .VERSION_LIMIT LSSU 32767 
THEN 


GIN 
SAVE_VERSION = .DNCFND_VERSION); 

DNCFAD_FLAGS) = 0; 

DNCFND-VERSION] = 32768; 

HSMOVE (DCX_LENGTH, DIR CONTEXT, SAVE_DIR CONTEXT); 

STATUS = DIRTSCAN (.DN, 0, .DIR_VBN-1,~.DIR_ENTRY, .DIR_VERSION, .DIR_PRED, -1); 
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1 
18-Se -1984 00:21:45 VAX-11 Bliss-32 V4.0-742 Page 12) 
122800 = 1384 93°80:18 DISKSVMSMASTER:CFIIX.SRCJENTER.B32;2 ° (3) v04 
IF_.STATUS 
THEN 
BEGIN 
TF VERSION, COUNT + 1 GEQU .VERSION_LIMIT 
BEGIN 
PREY VERSION = .DIR_VERSI 
CHSMOVE DER ENTRYEDI RSE _NABEC 
DIR-ENTRYLDIRSB NAME COUNT , PREV_aAME); 
CHSMOVE (FIBSS_FID DIR VERSIONCDIR$W_FIDJ, SUPER_FID); 
APPLY_RVN (SUPER. FLD FIBS$W_RVNJ, .CURRENT_RVN); 
USER STATUS ? ="S$S$_FILEPORGED: 
CLEARNUP_FLAGSCCLF SUPERSEDE) = 1; 
REMOVE T.DIR_VBN EQL .SAVE DIR_CONTEXTCDCX_VBNJ 
AND [DIR_ENTRY = .BIR BUFFER + 
ae «SAVE_DIR_CONTEXTCDCX_ENTRY] = .SAVE_DIR_CONTEXTCDCX_BUFFER)); 
END 


SE 
IF_.VERSION COUNT GEQU .VERSION_LIMIT 
THEN ERR_EXIT (SS$_TOOMANYVER) ; 


! Now reposition to the point of the enter to make the new entry. 


DNCFND_VERSION] = .SAVE_VER 
RESTORE _DIR (SAVE_DIR_ CONTE 


SION; 
XT) 


I 
T 


Check available space and extend if necessary. If we are out of space 
in the block, the version is going to the front of the record, the 
record is the only one in its block, and the record has a 

predecessor, we backspace to the previous record and try to append 
the eetry. this prevents pathological directory fragmentation when 
new versions are inserted in descending order, as m pnt happen during 
a wild card copy. If this gambit fails or is not applicable, we have 
to split the block. 


ONCOIRSW_VERSION); 
OURTJ+1 
IF DIRSC_VERSION GTRU .DIR_BUFFER + 512 = .DIR_END 
| 


BEGIN 
IF .DIR_ENTRY EQL .DIR_BUFFER 
AND :DIR-VBN GTRU 
AND .DIR-VERSION EQL .DIR_ENTRY + .NAME_LENGTH + DIRSC LENGTH 
AND .BBLOCK CNEXT_REC (.DIR_ENTRY), DIRSW_SIZE] EQL 655 
AND CHSEQL (.DIR_ENTRYCOIRSB_NAMECOUNTJ+1- 
DIR-ENTRYLDIRSB_NAME COUNT), 
.DIR~ENTRYCDIR$B_NAMECOUNT*1, 
LAST_ENTRY) 
THEN 
BEGIN 
DIR_VBN = .DIR_VBN - 1; 
DIR“BUFFER = DIR_END = READ_BLOCK (.DIR_VBN-1+.DIR_FCBCFCBSL_STLBNJ, 1, DIRECTORY_TYPE); 
BEGIN 
DIR_ENTRY = .DIR_END; 
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1h-s6 -1984 2:21:45 VAX-11 Bliss-32 
1a-Sep-19 4 90:40: t8 DISKSVMSMASTER: 
N 


: 3 1 ¢ : GLOBAL ROUTINE RESTORE_DIR (CONTEXT) : L_NORM NOVALUE = 

; 9 15 § 1 !+4 

; 540 15 1! 

$ re 1 8 : FUNCTIONAL DESCRIPTION: 

; 1550 1! This routine poppet tens a directory to the location specified 
> 5446 1531 1! in the context block and copies the context back into the 
; 545 15 § a7 main context block. 

; 546 15 1! 

; $47 1534 1 ! CALLING SEQUENCE: 

: 548 12 Be F RESTORE_DIR (ARG1) 

; 549 1536 1! 

s 350 1537 1 ! INPUT PARAMETERS: 

3 3D} 1538 1: ARG1: address of context block to use 

; 22¢ 1539 1! 

; 22 1540 1 ! IMPLICIT INPUTS: 

: 554 1541 1! NONE 

s $55 13¢¢ 1! 

; 556 1545 1 ! OUTPUT PARAMETERS: 

s Sor 1544 1! NONE 

; 558 1545 1! 

; 559 1546 1 ! IMPLICIT OUTPUTS: 

; 200 13 : DIR_CONTEXT: receives contents of supplied context 

H 266 1549 1 ! ROUTINE VALUE: 

; 56 1550 1! NONE 

> 564 T7313 ¢ 

3 365 1336 1 ! SIDE EFFECTS: 

: 566 Sas directory block read 

2 Sor 1554 1! 

; 568 1555 1 !<- 

; 3 1556 1 

; 570 1557 § BEGIN 

; Sr 1558 

3; Sie 1559 MA 

: ef? 1369 CONTEXT : REF BBLOCK; ! directory context arg 
; Bo 136¢ BIND_COMMON; 

; 576 156 

3 S77 1564 DIR_CONTEXT_DEF ; 

; 578 1565 

: 579 1566 EXTERNAL ROUTINE 

; 280 1567 READ_BLOCK : L_NORM; ! read a disk block 

; 581 1568 

3 28¢ 126? 

; 1570 ! We have to reread the block if either the supplied context is the 
; 584 1571 !' main context etacteat foe a required reposition) or the supplied 
; 585 1376 ! context points to a different block than the main context (indicating 
; 586 157 ! that we have actually moved). 

3 off 1574 ! 

; 4588 1575 

: 589 1326 IF .CONTEXT EQL DIR_CONTEXT 

; 590 157 OR CONTENT EDCY Von] ie .DIR_VBN 

3 391 1378 OR .CONTEXTCDCX_BUFFER) NEQ .BDIR_BUFFER 

; 236 157 THEN 

; #59 1580 BEGIN 
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Sep-1984 74 VAX-11 Bliss<-32 V4.0-742 B 0 
18-58 ~300 138% 99: $9; 13 DISKSVMSMASTER:CFIIX.SRCJENTER.B32:2 9” rad 
5 00 CA D 4 MOVL 8(BASE), RO ; 
50 33 BB A c} 9 ADDL3 é nO), (R2), RO : | 
FF 6AO OF F PUSHAB =1(RO) : 
00006 CF 9 F CALLS #3, READ_BLOCK : 
63 D 7 VL. RO (RB) : | 
08 A 63 ¢ 7 ADDL2 (R$), B(R2) : 1590! 
OC A2 D 7D TSTL LecRe) ; 1591 | 
06 1 BEQL «=sS5 : 
OC A2 63 ¢ ADDL2 (R3), 12(R2) : 1598 
10 A2 Dd 0 5$: TSTL  16(R2) + 159 
06 1 BEQL 6$ ; 
10 A2 63 C 0 B ADDL2 (R3), 16(R2) > 1594 
14 A2 OD F 6$: TSTL gO (Re) + 1595 
04 13 00092 BEQL § : 
14 A2 63 ¢ 0094 ADDL2 (R3), 20(R2) + 1596 
50 04 AC 00 00098 7$: MOVL CONTEXT, RO + 1597 
18 A2 18 AO BO 0009C¢ MOVW 4(RO), 24(R2) : 
50 04 AC DO 000A1 MOVL CONTEXT, RO + 1598 
1A A2 1A AO BO OOOAS MOVW  26(RO), 26(R2) ; 
30 04 AC DO OOOAA MOVL. CONTEXT, RO + 1599 
1¢ A 1c. OA 0051 8F 28 OOOAE MOVC3 #81, 28(R0), 28(R2) : 
04 00086 RET + 1576 
62 60 0070 8F 28 00087 8$: MOVC3 #112, (RO), (R2) + 1602 
04 0008D RET + 1604 
; Routine Size: 190 bytes, Routine Base: S$CODE$ + 0480 
>: 618 1605 
: 619 1606 
: 620 1607 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 1403 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics | 
BS oy ea Ee ee Pe ey ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 51 0 1000 00:01.9 | 
| 
| 
| 
| 


1$-$80-1 93:9h;73 — BESRSUMBMASTERSCETIXcoRCIENTER.832;2 °%° (2) 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS:ENTER/OBJ=OBJS:ENTER MSRC$:ENTER/UPDATE=(ENHS$: ENTER) 


Size 1399 code + 4 data bytes 
Run “Time 0: 0:31. 

Elapsed. Tine: 

Lines/CPU Min: 1861 

Lexemes/CPU-Min: 47008 

poner? Used: 377 pages 

Compilation Complete 
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